home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / business / f-base.lha / F-Base / Installation < prev    next >
Text File  |  1996-11-16  |  1KB  |  56 lines
  1. ; $VER: Installation F-Base V1.0 (16.11.96) par LABOUREUR Frédéric
  2.  
  3. ;*******************************************************************
  4. ; Création des variables
  5.  
  6. (set TitreTiroir "Où voulez-vous créer le Tiroir F-Base ?")
  7. (set AideTiroir
  8.    (cat "  Choisissez où devra être créer le tiroir F-Base.\n"
  9.        "  Il servira à stocker tous les fichiers de F-Base."
  10.    )
  11. )
  12.  
  13. ;*******************************************************************
  14. ;Choix et création du repertoire
  15.  
  16. (set DestDir
  17.       (askdir
  18.          (prompt TitreTiroir)
  19.          (help AideTiroir)
  20.          (default "SYS:")
  21.         )
  22. )
  23.  
  24. (set DestDir (expandpath DestDir))
  25. (set @default-dest (tackon DestDir "F-Base"))
  26.  
  27. (makedir @default-dest (infos))
  28.  
  29. ;*******************************************************************
  30. ; Copie des fichiers necessaires...
  31.  
  32. (copyfiles
  33.    (source "")
  34.    (dest @default-dest)
  35.    (pattern "(F-Base|F-Base.guide)")
  36.    (infos)
  37. )
  38.  
  39. (copyfiles
  40.    (source "")
  41.    (dest @default-dest)
  42.    (pattern "(F-BPrefs)")
  43.    (infos)
  44. )
  45.  
  46.  
  47. (copyfiles
  48.    (source "")
  49.    (dest "C:")
  50.    (pattern "(FSort|FInfo)")
  51. )
  52.  
  53.  
  54.  
  55. ;*******************************************************************
  56.